Imports System
Imports System.Web
Imports System.Web.UI
Imports System.Web.UI.WebControls
Imports DotNetNuke
Namespace NVPortal.Modules.NVBannerAdv
    Partial Class MainCustomeDisplaySpecial
        Inherits Entities.Modules.PortalModuleBase

        Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
            Try
                'If Not IsPostBack Then
                Dim DynamicPage As String

                If Settings("NVBannerAdvDisplayStyleSetting") <> "" Then
                    DynamicPage = DotNetNuke.Common.ResolveUrl(Me.TemplateSourceDirectory & "/DisplayControl/" & Settings("NVBannerAdvDisplayStyleSetting"))
                Else
                    DynamicPage = DotNetNuke.Common.ResolveUrl(Me.TemplateSourceDirectory & "/DisplayControl/Default.ascx")
                End If
                Dim objModule As Entities.Modules.PortalModuleBase = CType(Me.LoadControl(DynamicPage), DotNetNuke.Entities.Modules.PortalModuleBase)
                If Not objModule Is Nothing Then
                    objModule.ModuleConfiguration = Me.ModuleConfiguration
                    phDynamicPlaceHolder.Controls.Add(objModule)
                End If
                'End If
            Catch ex As Exception
                ProcessModuleLoadException(Me, ex)
            End Try
        End Sub

    End Class
End Namespace
